home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yammailcheck / mail2rw.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-22  |  521b  |  25 lines
  1.  
  2. /* Script to send an e-mail to Robert Wilson - Author of MailCheck */
  3.  
  4. options results
  5.  
  6. if show('P','YAM')=0 then do
  7.   address command 'run <>nil: yam:yam nocheck'
  8.   i=0
  9.   do until show('P','YAM')>0 | i=3
  10.     address command 'sys:rexxc/WaitForPort YAM'
  11.     i=i+1
  12.   end 
  13.     if show('P','YAM')=0 then do
  14.     address command 'RequestChoice <>nil: "Error!" "Could not start YAM" "Hmm.."'
  15.     exit
  16.   end
  17. end
  18.  
  19. address 'YAM'
  20. show
  21. mailwrite
  22. writemailto '"robert.wilson@bigfoot.com"'
  23. writesubject '"MailCheck Version 1.2"'
  24. exit
  25.